home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / rexx / rkr_rexx.lzh / getfile.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-02-13  |  319 b   |  15 lines
  1. /*
  2. **  $Id: getfile.rexx,v 1.1 1995/02/12 22:14:02 rkr Exp $
  3. **
  4. **  Handy function to retrieve a named file.
  5. **
  6. */
  7.  
  8. parse arg filename
  9.     contents = ''
  10.     if open( filename, filename, 'r' ) then
  11.         do while ~eof( filename )
  12.             contents = contents || readch( filename, 4096 )
  13.         end
  14. return contents
  15.